home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1994-10-15 | 809 b | 23 lines |
- >TestEmpty
- Tests if a drive supports Empty detection
- David G Jones,1994
- Public Domain
- "The aim of this little utility is to test whether a drive"
- "can detect whether it is empty or not. Necessary for the"
- "-Poll switch to work in OverFiler."
- "Filing system name: ";fs$
- "Drive number: ";drive%
- "Now just insert/remove a disc from the drive a few times"
- "until we get some kind of concrete result, if none then"
- "drive will not support Empty detection."
- Sequence% = 0
- (Sequence%
- 10) = 0
- ".";
- fs$+"_MiscOp", 1, drive%, Sequence%
- ,,Sequence%, Result%
- Result% > 15
- Result%
- "Empty detection works!!!"
- "Sorry, Empty detection does not work for this drive..."
-